# Copyright (c) 2007-2009 Google Inc.
# Copyright (c) 2006-2007 Jaiku Ltd.
# Copyright (c) 2002-2006 Mika Raento and Renaud Petit
#
# This software is licensed at your choice under either 1 or 2 below.
#
# 1. Perl (Artistic) License
#
# This library is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# 2. Gnu General Public license 2.0
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
#
#
# This file is part of the JaikuEngine mobile frontend.

  # the subversion directories and have cousin plugins in their
  # dev locations, but not system-wide installed.
  opendir(my $dh, "../");
  foreach my $d (grep { /^DJabberd/ || /^Jaiku-/ } readdir($dh)) {
    my $dir = "../$d/lib";
    next unless -d $dir;
    unshift(@INC, $dir);
  }
  unshift(@INC, 'lib');
}

use Jaiku::BBData::Tuple;
use Jaiku::MessageQueue::Client;
use Jaiku::Mock::Backend;
use Jaiku::Mock::Storage;
use Jaiku::PullItem;

my $storage = new Jaiku::Mock::Storage;
my $backend = new Jaiku::Mock::Backend;

Jaiku::MessageQueue::Client->set_storage($storage);
Jaiku::MessageQueue::Client->set_backend($backend);

sub storage() {
  return $storage;
}

sub backend() {
  return $backend;
}
